home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / pcboard / pob196_a.zip / POB196.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-05-26  |  2KB  |  186 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.3O (Encryption type II) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     Int      INT001
  25.     Int      INT002
  26.  
  27. ;------------------------------------------------------------------------------
  28.  
  29.     If (AnsiOn()) Goto LABEL001
  30.     DispFile PPEPath() + "noansi", 1 + 2 + 4
  31.     Stop
  32.     :LABEL001
  33.     DispFile PPEPath() + PPEName(), 1 + 2 + 4
  34.     KbdFlush
  35.     INT001 = GetY()
  36.     STRING003 = ScrText(42, INT001, 7, 1)
  37.     STRING004 = ScrText(54, INT001, 10, 1)
  38.     STRING005 = ScrText(69, INT001, 8, 1)
  39.     AnsiPos 2, INT001
  40.     Print "@X08POB196 1.0 POB(@X0Ac@X08)1996"
  41.     AnsiPos 69, INT001
  42.     STRING002 = StripAtx(STRING005)
  43.     Print "@X4F", Upper(STRING002), "@X07"
  44.     INT002 = 3
  45.     :LABEL002
  46.     STRING001 = TInkey(5400)
  47.     Select Case (STRING001)
  48.         Case Chr(27)
  49.             KbdStuff "N" + Chr(13)
  50.         Case Chr(13), " ", "DOWN"
  51.             Select Case (INT002)
  52.                 Case 1
  53.                     KbdStuff "NS" + Chr(13)
  54.                 Case 2
  55.                     KbdStuff "N" + Chr(13)
  56.                 Case Else
  57.                     KbdStuff Chr(13)
  58.             End Select
  59.         Case "s", "S"
  60.             KbdStuff "NS" + Chr(13)
  61.         Case "N", "n", "UP"
  62.             KbdStuff "N" + Chr(13)
  63.         Case "LEFT"
  64.             If (INT002 == 1) Then
  65.                 INT002 = 3
  66.             Else
  67.                 Dec INT002
  68.             Endif
  69.             Select Case (INT002)
  70.                 Case 1
  71.                     AnsiPos 54, INT001
  72.                     Print STRING004
  73.                     AnsiPos 42, INT001
  74.                     STRING002 = STRING003
  75.                     STRING002 = StripAtx(STRING002)
  76.                     Print "@X4F", Upper(STRING002), "@X07"
  77.                     Goto LABEL002
  78.                 Case 2
  79.                     AnsiPos 69, INT001
  80.                     Print STRING005
  81.                     AnsiPos 54, INT001
  82.                     STRING002 = STRING004
  83.                     STRING002 = StripAtx(STRING002)
  84.                     Print "@X4F", Upper(STRING002), "@X07"
  85.                     Goto LABEL002
  86.                 Case 3
  87.                     AnsiPos 42, INT001
  88.                     Print STRING003
  89.                     AnsiPos 69, INT001
  90.                     STRING002 = STRING005
  91.                     STRING002 = StripAtx(STRING002)
  92.                     Print "@X4F", Upper(STRING002), "@X07"
  93.                     Goto LABEL002
  94.             End Select
  95.         Case "RIGHT"
  96.             If (INT002 == 3) Then
  97.                 INT002 = 1
  98.             Else
  99.                 Inc INT002
  100.             Endif
  101.             Select Case (INT002)
  102.                 Case 1
  103.                     AnsiPos 69, INT001
  104.                     Print STRING005
  105.                     AnsiPos 42, INT001
  106.                     STRING002 = STRING003
  107.                     STRING002 = StripAtx(STRING002)
  108.                     Print "@X4F", Upper(STRING002), "@X07"
  109.                     Goto LABEL002
  110.                 Case 2
  111.                     AnsiPos 42, INT001
  112.                     Print STRING003
  113.                     AnsiPos 54, INT001
  114.                     STRING002 = STRING004
  115.                     STRING002 = StripAtx(STRING002)
  116.                     Print "@X4F", Upper(STRING002), "@X07"
  117.                     Goto LABEL002
  118.                 Case 3
  119.                     AnsiPos 54, INT001
  120.                     Print STRING004
  121.                     AnsiPos 69, INT001
  122.                     STRING002 = STRING005
  123.                     STRING002 = StripAtx(STRING002)
  124.                     Print "@X4F", Upper(STRING002), "@X07"
  125.                     Goto LABEL002
  126.             End Select
  127.         Case Else
  128.             KbdStuff Chr(13)
  129.     End Select
  130.     Newline
  131.     End
  132.  
  133. ;------------------------------------------------------------------------------
  134. ;
  135. ; Usage report (before postprocessing)
  136. ;
  137. ; ■ Statements used :
  138. ;
  139. ;    1       End
  140. ;    37      Goto 
  141. ;    21      Let 
  142. ;    14      Print 
  143. ;    17      If 
  144. ;    2       DispFile 
  145. ;    1       Inc 
  146. ;    1       Dec 
  147. ;    1       Newline
  148. ;    1       Stop
  149. ;    7       KbdStuff 
  150. ;    14      AnsiPos 
  151. ;    1       KbdFlush
  152. ;
  153. ;
  154. ; ■ Functions used :
  155. ;
  156. ;    11      +
  157. ;    21      ==
  158. ;    17      !
  159. ;    5       ||
  160. ;    7       Upper()
  161. ;    9       Chr()
  162. ;    7       StripAtx()
  163. ;    2       PPEPath()
  164. ;    1       AnsiOn()
  165. ;    1       GetY()
  166. ;    1       PPEName()
  167. ;    3       ScrText()
  168. ;    1       TInkey()
  169. ;
  170. ;------------------------------------------------------------------------------
  171. ;
  172. ; Analysis flags : No flag
  173. ;
  174. ;------------------------------------------------------------------------------
  175. ;
  176. ; Postprocessing report
  177. ;
  178. ;    0       For/Next
  179. ;    0       While/EndWhile
  180. ;    2       If/Then or If/Then/Else
  181. ;    4       Select Case
  182. ;
  183. ;------------------------------------------------------------------------------
  184. ;                 AEGiS Corp - Break the routines, code against the machines!
  185. ;------------------------------------------------------------------------------
  186.